a,b: integer; begin write('введи возраст саши: '); read(a);
write('введи возраст маши: '); read(b);
writeln; if a> b then write('саша старше маши'); if a< b then write('маша страше саши'); if a=b then write('маша и саша - ровесники'); end.
Ответ дал: Гость
составим двоичную матрицу:
молоко лимонад квас вода
бутылка 0 1 0 0
стакан 0 0 0 1
кувшин 1 0 0 0
банка 0 0 1 0
в кувшине - молоко
в бутылке - лимонад
в банке - квас
в стакане - вода
Ответ дал: Гость
напиши само ,я
Ответ дал: Гость
var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;
begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.
Популярные вопросы