const amax = 100; var a: array [1..amax] of integer; i, n, ch, num: integer; begin Writeln('Введите размер массива'); Readln(n); ch := 0; Writeln('Исходный массив'); for i := 1 to n do begin a[i] := Random(1, 100); Write(a[i], ' '); if not odd(a[i]) then begin ch := a[i]; num := i; end; end; Writeln; writeln('Последний четный элемент массива: ', ch, '[', num, ']'); end.
CodePascal
const amax = 100; var a: array [1..amax] of integer; i, n, ch, num: integer; begin Writeln('Введите размер массива'); Readln(n); ch := 0; Writeln('Исходный массив'); for i := 1 to n do begin a[i] := Random(1, 100); Write(a[i], ' '); if not odd(a[i]) then begin ch := a[i]; num := i; end; end; Writeln; writeln('Последний четный элемент массива: ', ch, '[', num, ']'); end.Тестовое решение:
Введите размер массива
10
Исходный массив
58 50 43 68 74 45 74 20 83 11
Последний четный элемент массива: 20[8]
#include <iostream>
using namespace std;
int main()
{
int day;
cout << "Введите номер дня недели: ";
cin >> day;
switch(day)
{
case 1:
cout << "Будни - понедельник";
break;
case 2:
cout << "Будни - вторник";
break;
case 3:
cout << "Будни - среда";
break;
case 4:
cout << "Будни - четверг";
break;
case 5:
cout << "Будни - пятница";
break;
case 6:
cout << "Выходные - суббота";
break;
case 7:
cout << "Выходные - воскресенье";
break;
default:
cout << "Такого дня недели нет";
break;
}
return 0;
}