Const N = 7; Var A:array[1..N] of integer; i,j:integer; Begin j:=0; WriteLn('Введи массив A(N)'); For i:= 1 to N do Begin Read(A[i]); if (A[i] mod 7 =1)or(A[i] mod 7 =2)or(A[i] mod 7 =5) then j:=j+1 End; WriteLn(j) End.
Например, если тебе сказали, что вечеринка будет в субботу, а на самом деле она назначена на пятницу; если тебе сказали, что поезд отъезжает в 18.00, а его отъезд запланирован в 17.30; если тебе сказали, что день рождения у человека 17 февраля, а оно 19 февраля; если тебе сказали, что у митохондрий нет ДНК (хотя есть); - тебе сообщили недостоверную информацию, т.е. не соответствующую действительности. Ты можешь написать о любом подобном случае.
P.S.: если тебе к примеру сказали, что вечеринка в субботу, и она планировалась на субботу, однако потом её перенесли, то такая информация являлась достоверной, но неустойчивой(меняющейся во времени)
var a: array[1..m, 1..n] of integer; i, j, im, jm, mx, e: integer;
begin Randomize; mx := -1000; for i := 1 to m do begin for j := 1 to n do begin a[i, j] := Random(100) - 50; e := abs(a[i, j]); if mx < e then begin mx := e; im := i; jm := j end; write(a[i,j]:4) end; writeln end; writeln; writeln('Максимальный по модулю элемент a[', im, ';', jm, ']=', mx) end.
N = 7;
Var
A:array[1..N] of integer;
i,j:integer;
Begin
j:=0;
WriteLn('Введи массив A(N)');
For i:= 1 to N do
Begin
Read(A[i]);
if (A[i] mod 7 =1)or(A[i] mod 7 =2)or(A[i] mod 7 =5) then j:=j+1
End;
WriteLn(j)
End.