1. из элементов массива d сформировали массив а той же размерности по правилу: если номер четный ,то аi=5+di^2 если не четный , то ai=di/i 2. определить , сколько пар соседних элементов сумма которых равна заданному числу х ( х вводиться с клавиатуры)
245
439
Ответы на вопрос:
Вобщем, т.к. ты мне не ответил - лови две программы: 1) program dasf; var b,c,i: integer; a: array[1..100] of real; d: array[1..100] of real; begin writeln('введите размерность массива d'); readln(b); for i: =1 to b do begin writeln('введите элемент массива №',i); readln(d[i]); end; writeln('массив а: '); for i: =1 to b do begin if i mod 2=1 then a[i]: =5+(d[i]*d[i]) else a[i]: =d[i]/i; writeln(a[i]); end; end. 2) program fgsadg; var i,b,x,y,z,k,t: integer; begin writeln('введите сколько чисел будет использоваться: '); readln(b); writeln('введите х: '); readln(x); writeln('введите число №',1); readln(z); k: =0; for i: =2 to b do begin writeln('введите число №',i); readln(y); if z+y=x then k: =k+1; z: =y; end; writeln(k); end. если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе.
Популярно: Информатика
-
KALINACHKA02.03.2021 20:17
-
matvey987401.01.2022 22:21
-
svetika081327.11.2021 19:19
-
Roman4ik120707.06.2021 05:29
-
Subhinur30.04.2020 19:10
-
СофаСофачка31.12.2022 05:29
-
СаняDots21.04.2020 06:11
-
levgoncharenko04.09.2020 13:23
-
KimqaR15.08.2020 09:46
-
evgenqj200229.06.2020 02:38